home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 November / CHIP Kasım 1997.iso / ARACLAR / TER500 / 500TER._XE / SCRIPT.EXE / CRC32.TSL < prev    next >
Encoding:
Text File  |  1995-08-14  |  893 b   |  28 lines
  1. % -----------------------------------------------------------------------------
  2. % Checksum demo                                        *TERMINATE PRESCRIPTION*
  3. % -----------------------------------------------------------------------------
  4. %
  5. %  Version          : 1.00
  6. %  Filename         : CRC32.TSL
  7. %  Company          : SerWiz Comm
  8. %  Programmer       : Bo Bendtsen
  9. %  Module created   : 14 Aug 1995
  10. %  Latest revision  : 14 Aug 1995
  11. %  Language/version : Terminate Prescription 1.00
  12. %  Remarks          : Demonstration of how to calculate a CRC32 on a file
  13. %
  14. % -----------------------------------------------------------------------------
  15.  
  16. Set Crc=-1
  17. Open 1,"TERMINAT.DAT",0,0
  18. Repeat
  19.   Set Line=Read(1,128)
  20.   For Y,1,Length(Line),1
  21.     Set B=Ord(Copy(Line,Y,1))
  22.     Set Crc=GetCrcLong(B, Crc)
  23.   Next
  24. Until Eof(1) | (Keypressed=1)
  25. Close 1
  26. PrintLn LongToHex(Crc)
  27.  
  28.